home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / netInet.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  6.0 KB  |  161 lines
  1. if (!defined &_NETINET) {
  2.     eval 'sub _NETINET {1;}';
  3.     eval 'sub NET_ARP_TYPE_ETHER {1;}';
  4.     eval 'sub NET_ARP_REQUEST {1;}';
  5.     eval 'sub NET_ARP_REPLY {2;}';
  6.     eval 'sub NET_RARP_REQUEST {3;}';
  7.     eval 'sub NET_RARP_REPLY {4;}';
  8.     eval 'sub NET_INET_BROADCAST_ADDR {(( &Net_InetAddress) 0xFFFFFFFF);}';
  9.     eval 'sub NET_INET_ANY_ADDR {(( &Net_InetAddress) 0);}';
  10.     eval 'sub NET_INET_CLASS_A_ADDR {
  11.         local($addr) = @_;
  12.         eval "((( &unsigned \'int\')($addr) & 0x80000000) == 0)";
  13.     }';
  14.     eval 'sub NET_INET_CLASS_A_HOST_MASK {0x00FFFFFF;}';
  15.     eval 'sub NET_INET_CLASS_A_NET_MASK {0xFF000000;}';
  16.     eval 'sub NET_INET_CLASS_A_SHIFT {24;}';
  17.     eval 'sub NET_INET_CLASS_B_ADDR {
  18.         local($addr) = @_;
  19.         eval "((( &unsigned \'int\')($addr) & 0xC0000000) == 0x80000000)";
  20.     }';
  21.     eval 'sub NET_INET_CLASS_B_HOST_MASK {0x0000FFFF;}';
  22.     eval 'sub NET_INET_CLASS_B_NET_MASK {0xFFFF0000;}';
  23.     eval 'sub NET_INET_CLASS_B_SHIFT {16;}';
  24.     eval 'sub NET_INET_CLASS_C_ADDR {
  25.         local($addr) = @_;
  26.         eval "((( &unsigned \'int\')($addr) & 0xE0000000) == 0xC0000000)";
  27.     }';
  28.     eval 'sub NET_INET_CLASS_C_HOST_MASK {0x000000FF;}';
  29.     eval 'sub NET_INET_CLASS_C_NET_MASK {0xFFFFFF00;}';
  30.     eval 'sub NET_INET_CLASS_C_SHIFT {8;}';
  31.     eval 'sub NET_INET_CLASS_D_ADDR {
  32.         local($addr) = @_;
  33.         eval "((( &unsigned \'int\')($addr) & 0xF0000000) == 0xE0000000)";
  34.     }';
  35.     eval 'sub NET_INET_CLASS_D_NET_MASK {0x0FFFFFFF;}';
  36.     eval 'sub NET_INET_CLASS_E_ADDR {
  37.         local($addr) = @_;
  38.         eval "((( &unsigned \'int\')($addr) & 0xF0000000) == 0xF0000000)";
  39.     }';
  40.     eval 'sub NET_INET_LOCAL_HOST {0x7F000001;}';
  41.     if ( &BYTE_ORDER ==  &LITTLE_ENDIAN) {
  42.     }
  43.     else {
  44.     }
  45.     if ( &BYTE_ORDER ==  &LITTLE_ENDIAN) {
  46.     }
  47.     else {
  48.     }
  49.     eval 'sub NET_IP_VERSION {4;}';
  50.     eval 'sub NET_IP_MAX_HDR_SIZE {60;}';
  51.     eval 'sub NET_IP_MAX_TTL {255;}';
  52.     eval 'sub NET_IP_MAX_FRAG_TTL {15;}';
  53.     eval 'sub NET_IP_TTL_DECR {1;}';
  54.     eval 'sub NET_IP_MAX_SEG_SIZE {576;}';
  55.     eval 'sub NET_IP_MAX_PACKET_SIZE {65535;}';
  56.     eval 'sub NET_IP_SERV_PREC_NET_CTL {0xE0;}';
  57.     eval 'sub NET_IP_SERV_PREC_INET_CTL {0xC0;}';
  58.     eval 'sub NET_IP_SERV_PREC_CRITIC {0xA0;}';
  59.     eval 'sub NET_IP_SERV_PREC_FLASH_OVR {0x80;}';
  60.     eval 'sub NET_IP_SERV_PREC_FLASH {0x60;}';
  61.     eval 'sub NET_IP_SERV_PREC_IMMED {0x40;}';
  62.     eval 'sub NET_IP_SERV_PREC_PRIORITY {0x20;}';
  63.     eval 'sub NET_IP_SERV_PREC_ROUTINE {0x00;}';
  64.     eval 'sub NET_IP_SERV_NORM_DELAY {0x00;}';
  65.     eval 'sub NET_IP_SERV_LOW_DELAY {0x10;}';
  66.     eval 'sub NET_IP_SERV_NORM_THRUPUT {0x00;}';
  67.     eval 'sub NET_IP_SERV_HIGH_THRUPUT {0x08;}';
  68.     eval 'sub NET_IP_SERV_NORM_RELIABL {0x00;}';
  69.     eval 'sub NET_IP_SERV_HIGH_RELIABL {0x04;}';
  70.     eval 'sub NET_IP_LAST_FRAG {0x0;}';
  71.     eval 'sub NET_IP_MORE_FRAGS {0x1;}';
  72.     eval 'sub NET_IP_DONT_FRAG {0x2;}';
  73.     eval 'sub NET_IP_PROTOCOL_IP {0;}';
  74.     eval 'sub NET_IP_PROTOCOL_ICMP {1;}';
  75.     eval 'sub NET_IP_PROTOCOL_TCP {6;}';
  76.     eval 'sub NET_IP_PROTOCOL_EGP {8;}';
  77.     eval 'sub NET_IP_PROTOCOL_UDP {17;}';
  78.     eval 'sub NET_IP_PROTOCOL_SPRITE {90;}';
  79.     eval 'sub NET_IP_OPT_TYPE_OFFSET {0;}';
  80.     eval 'sub NET_IP_OPT_LEN_OFFSET {1;}';
  81.     eval 'sub NET_IP_OPT_PTR_OFFSET {2;}';
  82.     eval 'sub NET_IP_OPT_MIN_PTR {4;}';
  83.     eval 'sub NET_IP_OPT_MAX_LEN {40;}';
  84.     eval 'sub NET_IP_OPT_COPIED {
  85.         local($opt) = @_;
  86.         eval "(($opt) & 0x80)";
  87.     }';
  88.     eval 'sub NET_IP_OPT_CLASS {
  89.         local($opt) = @_;
  90.         eval "(($opt) & 0x60)";
  91.     }';
  92.     eval 'sub NET_IP_OPT_NUMBER {
  93.         local($opt) = @_;
  94.         eval "(($opt) & 0x1f)";
  95.     }';
  96.     eval 'sub NET_IP_OPT_CLASS_CONTROL {0x00;}';
  97.     eval 'sub NET_IP_OPT_CLASS_RESERVED1 {0x20;}';
  98.     eval 'sub NET_IP_OPT_CLASS_DEBUG {0x40;}';
  99.     eval 'sub NET_IP_OPT_CLASS_RESERVED2 {0x60;}';
  100.     eval 'sub NET_IP_OPT_END_OF_LIST {0x00;}';
  101.     eval 'sub NET_IP_OPT_NOP {0x01;}';
  102.     eval 'sub NET_IP_OPT_SECURITY {0x82;}';
  103.     eval 'sub NET_IP_OPT_LOOSE_ROUTE {0x83;}';
  104.     eval 'sub NET_IP_OPT_STRICT_ROUTE {0x89;}';
  105.     eval 'sub NET_IP_OPT_REC_ROUTE {0x07;}';
  106.     eval 'sub NET_IP_OPT_STREAM_ID {0x88;}';
  107.     eval 'sub NET_IP_OPT_TIMESTAMP {0x44;}';
  108.     if ( &BYTE_ORDER ==  &LITTLE_ENDIAN) {
  109.     }
  110.     else {
  111.     }
  112.     eval 'sub NET_IP_OPT_TS_ONLY {0;}';
  113.     eval 'sub NET_IP_OPT_TS_AND_ADDR {1;}';
  114.     eval 'sub NET_IP_OPT_TS_ADDR_SPEC {3;}';
  115.     if ( &BYTE_ORDER ==  &LITTLE_ENDIAN) {
  116.     }
  117.     else {
  118.     }
  119.     eval 'sub NET_TCP_MAX_HDR_SIZE {60;}';
  120.     eval 'sub NET_TCP_TTL {30;}';
  121.     eval 'sub NET_TCP_FIN_FLAG {0x01;}';
  122.     eval 'sub NET_TCP_SYN_FLAG {0x02;}';
  123.     eval 'sub NET_TCP_RST_FLAG {0x04;}';
  124.     eval 'sub NET_TCP_PSH_FLAG {0x08;}';
  125.     eval 'sub NET_TCP_ACK_FLAG {0x10;}';
  126.     eval 'sub NET_TCP_URG_FLAG {0x20;}';
  127.     eval 'sub NET_TCP_OPTION_EOL {0x0;}';
  128.     eval 'sub NET_TCP_OPTION_NOP {0x1;}';
  129.     eval 'sub NET_TCP_OPTION_MAX_SEG_SIZE {0x2;}';
  130.     eval 'sub NET_TCP_MAX_SEG_SIZE {512;}';
  131.     eval 'sub NET_UDP_TTL {30;}';
  132.     eval 'sub NET_ICMP_MIN_LEN {8;}';
  133.     eval 'sub NET_ICMP_ECHO_REPLY {0;}';
  134.     eval 'sub NET_ICMP_UNREACHABLE {3;}';
  135.     eval 'sub NET_ICMP_UNREACH_NET {0;}';
  136.     eval 'sub NET_ICMP_UNREACH_HOST {1;}';
  137.     eval 'sub NET_ICMP_UNREACH_PROTOCOL {2;}';
  138.     eval 'sub NET_ICMP_UNREACH_PORT {3;}';
  139.     eval 'sub NET_ICMP_UNREACH_NEED_FRAG {4;}';
  140.     eval 'sub NET_ICMP_UNREACH_SRC_ROUTE {5;}';
  141.     eval 'sub NET_ICMP_SOURCE_QUENCH {4;}';
  142.     eval 'sub NET_ICMP_REDIRECT {5;}';
  143.     eval 'sub NET_ICMP_REDIRECT_NET {0;}';
  144.     eval 'sub NET_ICMP_REDIRECT_HOST {1;}';
  145.     eval 'sub NET_ICMP_REDIRECT_TOS_NET {2;}';
  146.     eval 'sub NET_ICMP_REDIRECT_TOS_HOST {3;}';
  147.     eval 'sub NET_ICMP_ECHO {8;}';
  148.     eval 'sub NET_ICMP_TIME_EXCEED {11;}';
  149.     eval 'sub NET_ICMP_TIME_EXCEED_TTL {0;}';
  150.     eval 'sub NET_ICMP_TIME_EXCEED_REASS {1;}';
  151.     eval 'sub NET_ICMP_PARAM_PROB {12;}';
  152.     eval 'sub NET_ICMP_TIMESTAMP {13;}';
  153.     eval 'sub NET_ICMP_TIMESTAMP_REPLY {14;}';
  154.     eval 'sub NET_ICMP_INFO_REQ {15;}';
  155.     eval 'sub NET_ICMP_INFO_REPLY {16;}';
  156.     eval 'sub NET_ICMP_MASK_REQ {17;}';
  157.     eval 'sub NET_ICMP_MASK_REPLY {18;}';
  158.     eval 'sub NET_ICMP_MAX_TYPE {18;}';
  159. }
  160. 1;
  161.